0 PLOT   = 49152 : LINE    = PL+3  :      CLEAR  = PL+6  : RECHT   = PL+9
1 SETUP  = PL+12 : SHOW    = PL+15 :      MEM    = PL+18 : ELLIPSE = PL+21
2 TEST   = PL+24 : INVERT  = PL+27 :      SPEICH = PL+30 : LEFT    = PL+33
3 RIGHT  = PL+36 : HARD    = PL+39 :      UP     = PL+42 : DOWN    = PL+45
4 WRITE  = PL+48 : ZMEM    = PL+51 :      COPY   = PL+54 : W2      = PL+57
5 SSETUP = PL+60 : CHARSET = PL+63 :      LADEN  = PL+66
10 POKE53281,0:POKE53280,0:POKE646,7
12 H=PEEK(53248+17):POKE53248+17,0
15 B$="            ":B$=B$+B$
20 SYS ZMEM,53248,0,1
21 PRINT"[147]";:T=8
22 FORI=0TO8:POKE646,I+5:PRINTTAB(T)B$:NEXT
30 SYS SE,88,106:SYS SS,1,1
32 B1=32:B2=40
34 SYS ME,B1,B2:SYSCLEAR:SYS IN
35 SYS SH,1,1,0,1,0
36 SYS ME,B2,B1:SYSCLEAR:SYS IN
38 POKE53248+17,H
40 X=0:Y=41:A=0:B=7:C=8
42 READ AN
50 FOR D=1TOAN:READ A$
60 FOR I=ATOB
70 SYS CH,C,I+1,I,A:SYS WR,X,Y,A$
85 SYS UP:SYS MEM,B1,B2:SYS CO,B2,B1,8
90 H=B1:B1=B2:B2=H
100 NEXT
105 NEXT
107 RESTORE:GOTO42
115 DATA 10:REM ANZAHL ZEILEN
120 DATA " SCROLLING  "
121 DATA "------------"
122 DATA "            "
123 DATA "WRITTEN BY: "
124 DATA "            "
125 DATA " A.GESSLER  "
126 DATA "            "
127 DATA "            "
128 DATA "            "
129 DATA "            "
130 DATA "            "